Option Explicit
Sub J_Sample004()
    Dim myFilename As String
    Dim myFld      As String
    ChDir Application.DefaultFilePath
    myFld = "C:\windows\"			'Nؿ
    SendKeys myFld & "{TAB}"
    myFilename = Application.GetOpenFilename
    MsgBox myFilename
End Sub
